Jordan Franco CBB 2025

library(readr)
library(broom)
library(dplyr)
library(ggplot2)
library(plotly)
library(magick)
library(readxl)

# Read CSV file
my_data <- read_csv("C:/Users/Custom/Documents/CBB/Reg Model CSV.csv", show_col_types = FALSE)

# Fit the regression model
model <- lm(Outcome ~ OppPPG + ORPG + DRPG + `3P%` + `3PAR` + `NP%` + NPAR + TOV + FTAR + `FT%` + OppTOV + PPSt + PPSC, data = my_data)
# Round coefficients, standard errors, and p-values
tidy_model <- tidy(model, conf.int = TRUE) %>%
  mutate(estimate = round(estimate, 2),
         std.error = round(std.error, 2),
         conf.low = round(conf.low, 2),
         conf.high = round(conf.high, 2),
         statistic = round(statistic, 2),
         p.value = round(p.value, 2))

model_summary <- summary(model)
rsquared <- model_summary$r.squared
cat("R-squared:", round(rsquared, 3), "\n")

R-squared: 0.313 

# Print rounded coefficients, standard errors, and p-values with all rows and columns
print(tidy_model, n = Inf, width = Inf)

library(ggplot2)
library(ggimage)

team_data <- read.csv("C:/Users/Custom/Documents/CBB/teamgraph.csv")
team_data$Logo <- paste0("C:/Users/Custom/Documents/CBB/webplogos/", team_data$Team, ".webp")
team_data$LogoExists <- file.exists(team_data$Logo)
team_data_with_logos <- team_data[team_data$LogoExists, ]
p <- ggplot(team_data_with_logos, aes(x = NetEff, y = Aura)) +
  geom_image(aes(image = Logo), size = 0.05) +
  theme_minimal() +
  labs(title = "Team Performance Scatterplot",
       x = "Net Efficiency (NetEff)",
       y = "Aura")
print(p)

library(readxl)
library(plotly)
library(magick)

data <- read_excel("C:/Users/Custom/Documents/CBB/fullstats.xlsx")

New names:

data$Logo <- normalizePath(trimws(data$Logo), winslash = "/")

missing_files <- !file.exists(data$Logo)
if (any(missing_files)) {
  print("Missing files:")
  print(data$Logo[missing_files])
} else {
  print("All files exist.")
}

[1] "All files exist."

p <- plot_ly(data, x = ~AdjT, y = ~`3PAR`, z = ~`3P%`, 
             type = "scatter3d", mode = "markers", 
             marker = list(size = 5, color = "black"),  # Change marker color to black
             text = ~paste("Team: ", Team),  # Add team names as hover text
             hoverinfo = "text",
             hovertemplate = paste(
               "<b>%{text}</b><br>",  # Team name in bold
               "<span style='color: red;'>AdjT: %{x}</span><br>",  # AdjT in red
               "<span style='color: red;'>3PAR: %{y}</span><br>",  # 3PAR in red
               "<span style='color: red;'>3P%: %{z}</span><br>",    # 3P% in red
               "<extra></extra>"  # Remove extra hover info
             ))

for (i in 1:nrow(data)) {
  tryCatch({
    if (!file.exists(data$Logo[i])) {
      warning(paste("File not found:", data$Logo[i]))
      next
    }
    
    logo <- image_read(data$Logo[i])
    logo <- image_resize(logo, "50x50")  # Resize the logo if needed
    
    p <- p %>%
      add_trace(x = data$AdjT[i], y = data$`3PAR`[i], z = data$`3P%`[i],
                type = "scatter3d", mode = "markers",
                marker = list(symbol = 'circle', size = 10, 
                              color = 'rgba(0, 0, 0, 0)',  # Transparent marker
                              opacity = 0),
                hoverinfo = "none",
                showlegend = FALSE,
                name = data$Team[i],
                customdata = data$Logo[i],
                hovertemplate = paste(
                  "<b>", data$Team[i], "</b><br>",  # Team name in bold
                  "<span style='color: red;'>AdjT: ", data$AdjT[i], "</span><br>",  # AdjT in red
                  "<span style='color: red;'>3PAR: ", data$`3PAR`[i], "</span><br>",  # 3PAR in red
                  "<span style='color: red;'>3P%: ", data$`3P%`[i], "</span><br>",    # 3P% in red
                  "<extra></extra>"  # Remove extra hover info
                ))
  }, error = function(e) {
    message(paste("Error with file:", data$Logo[i]))
    message(e$message)
  })
}

p <- p %>%
  layout(
    scene = list(
      xaxis = list(
        title = "AdjT",
        tickmode = "linear",
        dtick = 5,        
        range = c(60, 75)   
      ),
      yaxis = list(
        title = "3PAR"
      ),
      zaxis = list(
        title = "3P%"
      )
    )
  )

p

library(readxl)
library(ggplot2)
library(ggimage)

data <- read_excel("C:/Users/Custom/Documents/CBB/fullstats.xlsx")

New names:

data$Logo <- normalizePath(trimws(data$Logo), winslash = "/")

missing_files <- !file.exists(data$Logo)
if (any(missing_files)) {
  print("Missing files:")
  print(data$Logo[missing_files])
} else {
  print("All files exist.")
}

[1] "All files exist."

p <- ggplot(data, aes(x = `Aura`, y = `TOVDiff`)) +
  geom_image(aes(image = Logo), size = 0.07) + 
  labs(
    x = "Aura",
    y = "TOVDiff",
    title = "Aura vs TOVDiff" 
  ) +
  theme(
    panel.background = element_rect(fill = "white"),
    plot.background = element_rect(fill = "white"),
    
    axis.line = element_line(color = "black"),
    axis.text = element_text(color = "black", size = 12),
    axis.title = element_text(color = "black", size = 12),
    
    plot.title = element_text(color = "black", size = 12, face = "bold", hjust = 0.5),
    
    panel.grid.major = element_line(color = "gray90"),  # Light gray grid lines
    panel.grid.minor = element_blank()  # Remove minor grid lines
  )

print(p)

ggsave(
  filename = "Aura vs TOVDiff.png", 
  plot = p,                          
  device = "png",                    
  width = 10,                        
  height = 8,                       
  dpi = 300                         
)

library(dplyr)

data <- read_excel("C:/Users/Custom/Documents/CBB/fullstats.xlsx")

New names:

x_bar <- mean(data$`Aura`, na.rm = TRUE)
y_bar <- mean(data$`TOVDiff`, na.rm = TRUE)

data <- data %>%
  mutate(
    x_diff = `Aura` - x_bar,
    y_diff = `TOVDiff` - y_bar,  
    score = sign(x_diff + y_diff) * sqrt(x_diff^2 + y_diff^2),
    score_rounded = round(score, 1),
    across(where(is.numeric), ~ round(., 1))
  )

score_table <- data %>%
  select(Team, Aura, TOVDiff, score_rounded)

write.csv(score_table, "C:/Users/Custom/Documents/CBB/team_scores.csv", row.names = FALSE)